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EDITORIAL 


a enorme difusión de la Informática nos lleva a reflexionar sobre sus posibili- 
dades en un futuro inmediato, y llegamos a la conclusión de que pronto vivi- 
remos en un mundo poderosamente informatizado. Por esta razón, es necesario que 
el mayor número posible de personas acceda a los conocimientos informáticos, los 
asimile, los utilice y, en consecuencia, se beneficie de sus importantes avances tec- 
nológicos. 

Es necesario conocer el ordenador y saber manejarlo, ya que puede ser usado 
como un instrumento intelectual, que nos sirve para desarrollar la lógica, la refle- 
xión, el análisis, la síntesis..., en definitiva, las capacidades intelectuales, al tiempo 
que es un importante elemento de distracción y de relax mental, a través de la infi- 
nita variedad de programas posibles. En este número de tu revista encontrarás dife- 
rentes tipos de programas, que pondrán a prueba tus reflejos mentales y tu dominio 
de la “máquina”. Esperamos en este número dar satisfacción a tus necesidades y 
expectativas. 

Por cierto, como esta revista está pensada y hecha para vosotros, sería muy 
importante que participaseis en ella dando vuestra opinión, haciendo todo tipo de 
sugerencias, indicándonos, en una palabra, cómo queréis que sea vuestra revista. 

Que te diviertas. 
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TRITON 


E n este juego tú pilotas un he- 
licóptero y tienes que destruir 
los edificios de una ciudad para po- 
der aterrizar, por cada pasada que 
des a la ciudad bajarás un poco y Si 
no logras destruir la ciudad te cho- 
carás contra sus edificios, tienes 
bombas para destruir los edificios 
que saldrán al pulsar la tecla “M”. Si 
logras destruir toda la ciudad pasa- 
rás a otra fase con una bonificación. 
Cada planta que destruyas te darán 
5 puntos. 
Al pasar de pantalla aparecerás más 
bajo que en la anterior por lo cual la 
dificultad será mayor, ya que ten- 
drás menos tiempo para destruir to- 
dos los edificios. El juego está he- 
cho con un bucle que va moviendo 
el helicóptero, el movimiento de la 
bomba y las explosiones están en 
subrutinas independientes. Para 
ahorrar espacio los U.D.G. están en 
la memoria intermedia de la impre- 
sora, por lo que en el listado no 
aparece ningún DATA. 
Este juego crea una gran adición, lu- 
cha contra el tiempo y afina tu pun- 
tería como si de un piloto profesio- 
nal se tratara y ¡¡SUERTE!! 
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U-57 
E res el comandante del subma- 
rino U-57 y tienes que destruir 
el convoy de barcos de la flota ene- 
miga que pasa por encima de ti 
pero ¡cuidado!, ya que tienes que 
evitar el submarino enemigo que 
está de escolta y que te dificultará 
la acción, también tienes que tener 
mucho cuidado con las cargas de 
profundidad que te lanzan los bar- 
cos ya que te destruirán al igual que 
las minas magnéticas que hay es- 
parcidas por el agua, pero no todo 
es malo, ya que tú tienes unos exce- 
lentes misiles que pueden destruir 
“al barco de un solo disparo, las te- 
clas son: O-Arriba; A-Abajo; 0O- 
Izquierda; P-Derecha; M-Misil. 
Para acertar el disparo hay que cal- 
cular el tiempo que tarda el misil en 
llegar hasta la superficie ya que Si 
no lo haces puede que el torpedo 
llegue antes que el barco o vicever- 
sa (que el barco llegue antes que el 
torpedo). 
Los gráficos están hechos con una 
rutina en código máquina que per- 
mite reconocerlos por medio de 
CODE SCREENS, esto sería imposi- 
ble con los gráficos normales del 
Spectrum puesto que todos tienen 
como CODE Q. Esta es una de las 
peculiaridades más importantes de 
este programa. 
Sólo te queda probarlo y disfrutar 
de él: 
¡NSUERTE!! 
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AIR COBRA ll 


Ss | Air Cobra es uno de los más 
modernos helicópteros de 
combate americanos, éste posee 
ametralladoras y misiles, el Air Co- 
bra es un helicóptero pequeño y rá- 
pido. 

Tú posees un helicóptero como el 
anteriormente descrito con el cual 
tendrás que destruir y arrasar todo 
a tu paso (casas, árboles, matorra- 
les) hasta no dejar nada, pero no 
todo es tan fácil ya que dos aviones 
de la fuerza aérea enemiga te persi- 
guen para chocarse contra ti y te si- 
guen a todas partes como si cami- 
cazes japoneses fueran, no los pue- 
des matar ya que sólo dispones de 
bombas y ellos te vienen de frente 
por lo que tendrás que probar tu pe- 
ricia como piloto y dirigir tu Air Co- 
bra con las teclas: 

O-Arriba; A-Abajo; M-Bomba. 

El paisaje está hecho con una varia- 
ble alfanumérica y el movimiento de 
éste se efectúa fragmentando dicha 
cadena alfanumérica e imprimiendo 
estos fragmentos. 

Pruébalo y verás cómo disfrutas 
destruyendo todo a la vez que es- 
quivas a los dos aviones y suerte. 
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MINAS 


E res un chaval travieso que se 
dedica a robarle cerezas al 
propietario de la finca vecina, y éste 
tan enfadado está de que le burles 
que ha llenado toda su finca de mi- 
nas. 
El Spectrum es amable y por unos 
instantes te muestra la disposición 
de las minas que luego desaparecen 
y tú tienes que ir a ciegas por todo 
el sembrado, vas dejando un rastro 
por el que luego puedes ir para sen- 
tirte más seguro, tras haber recogi- 
do todas las cerezas tienes que diri- 
girte a la salida que está en la parte 
superior y se te dará una bonifica- 
ción. Para realizar ésto dispones de 
cinco vidas. 
Burla de nuevo al dueño y a sus mi- 
nas riéndote de él y no te vayan a 
detener por ladrón de cerezas. 
Las coordenadas de cada mina es- 
tán almacenadas en una matriz por 
lo cual, aunque no se vean las mi- 
nas están ahí y te hacen explotar. 
O-Arriba; A-Abajo; O-Izquierda; P- 


Derecha. 
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APPLES 


CALCULO 


E ste programa sirve para hacer 
cálculos que aunque no son 
muy complicados siempre son de 
gran utilidad, a este tipo de cálculos 
se accede por medio de un menú 
principal al cual se vuelve cada vez 
que se acaba con un tipo de cálculo. 
En el menú se peuden encontrar las 
siguientes opciones: 
Potencias (si son de base negativa 
no funciona), descomponer en fac- 
tores, M.C.M. y M.C.D., Números pri- 
mos (dice si un número es primo o 
no), ecuaciones de segundo grado, 
tablas de multiplicar. 
El M.C.M. y el M.C.D. están realiza- 
dos según el método del Algoritmo 
de Euclides y las ecuaciones de se- 
gundo grado según el sistema de la 
fórmula matemática. Si la raiz cua- 
drada de la ecuación de segundo 
grado es menor que cero (negativa) 
el ordenador indica que esa ecua- 
ción no tiene solución. 


AS 


CAUDALES 


E l nombre de “caudales” que 
tiene este programa es debido 
a que está basado en los caudales 
de agua que corren por una bañera. 
El ordenador pide la cantidad de 
agua que tiene dentro la bañera, el 
agua que sale por el desague y el 
agua que sale por el grifo. 
Cuando ya tiene todos estos datos 
va calculando el agua que hay en la 
bañera cada minuto diciéndote si la 
bañera se llena (si entra más agua 
de la que sale) y si se vacía (si sale 
más agua de la que entra), tras ha- 
berse llenado o vaciado te indica el 
tiempo en que lo ha hecho. Los 
cálculos de este programa están ba- 
sados en las fórmulas fisicas de 
caudales de agua. . 
Si entra la misma agua que sale el 
programa entra en un bucle sin fin 
que tiene que ser parado con Break. 
Aunque no parezca ser una gran 
cosa, sí lo es, ya que es muy ¡ntere- 
sante ver una cosa que puede pasar 
en la vida real y siempre puedes 
quedarte viendo la tele mientras la 
bañera se está llenando (como este 
programa te dice el tie” Je tar- 
da). 


CICLISMO 


E res un recolector de manza- 
nas, pero te da mucho miedo 
subirte al gigantesco manzano del 
que tienes que coger la cosecha, ya 
que desde pequeñito tenías mucho 
vértigo, por lo cual te las has inge- 
niado para recogerlas de la siguien- 
te manera: 
Estas debajo del árbol y esperas a 
que las jugosas y rojas manzanas 
caigan y tú las recoges con una ces- 
ta que llevas en alto apoyada en tu 
cabeza, pero cuidado, ya que si se 
te caen al suelo más de 10 manza- 
nas el jefe que te contrató de prue- 
ba se enfadará contigo y te queda- 
rás en el paro (¡otro más!). Las te- 
clas de este juego son: 
O-Izquierda; P-Derecha. 
Mucha suerte y que no te veas en la 
calle buscando empleo. 


sk 


T ú eres el director del equipo 
ciclista “Spectrum”, pero el 
malvado director del equipo contra- 
rio os ha robado todas las bicicle- 
tas, como no tenéis otro remedio 
váis a ir a buscar las bicicletas a un 
jardín donde un hombre te ha dicho 
que las han guardado. 
Corres un gran peligro ya que este 
jardín es de ortigas venenosas que 
te harán morir al igual que los guar- 
dianes enemigos pero como a la 
vuelta ciclista no se puede ir en pa- 
tinete correrás el riesgo de ir a res- 
catar tus bicicletas. Cada vez que 
cojas una bicicleta irás a la salida 
del jardín que se encuentra en la 
parte inferior de la pantalla y se la 
darás a otro de tu equipo, volviendo 
tú a por otra bicicleta, dispones de 
poco tiempo ya que si no lo haces 
en el tiempo convenido la carrera 
empezará sin tu equipo y todo ha- 
brá sido inútil. 
Las teclas son: 
O-Arriba; A-Abajo; O-Izquierda; P- 
Derecha. 
Busca el camino más corto para 
ahorrar tiempo y sobre todo cuida- 
do con el guardián de la salida. 
¡¡SUERTE!! 





NIM 
N) ispones de una caja de manza- 
nas de 7 filas por 10 colum- 
nas, eligirás una que cambiará a co- 
lor diferente, si la que coges es la 
única que hay entre todas mala mo- 
rirás, cada manzana que cojas y sea 
buena serán 10 puntos, mientras 
cojas manzanas buenas todo irá 
bien pero si coges la mala perderás 
todo y tendrás que empezar de nue- 
vo. Si logras coger todas las buenas 
dejando para la última la mala po- 
drás decir que la suerte te acompa- 
ña, y serás el vencedor absoluto del 
juego. 
Si ves que corres peligro puedes de- 
jar de pedir más manzanas y plan- 
tarte, lo más divertido es echar 
competiciones entre dos y así ver 
quién gana. 
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PLUVIOMETRIA 
ste es un utilísimo programa 


E que sirve para hacer gráficas 
de lo que quieras en dos sistemas. 
En el primero (sistema de Barras 
simples) te pide la escala, de lo que 
quieres que sea la gráfica (el nom- 
bre de las unidades) y el título que 
quieres que tenga la gráfica. Des- 
pués te pide uno por uno los datos 
que al final te dibujará por medio de 
gráficos en alta resolución (PLOT y 
DRAW). 

En el segundo te hace gráficas de 
barras comparándote máximos y 
mínimos (en colores diferentes), 
para ello te pide la escala, el nom- 
bre de las unidades, y el nombre de 
la gráfica, luego te va pidiendo má- 
ximos y mínimos que imprimirá 
también con gráficos de alta resolu- 
ción. 

Pluviometría es un ejemplo, pero 
este programa tiene más utilidades 
ya que puede hacer gráficas de 
todo, y además, si tienes impresora, 
puedes pasarlas a papel y hacer tra- 
bajos bastante buenos. 
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GEOMETRIA 


> ste juego consta de tres me- 
nús, el primero es el menú 
principal en el cual se encuentran 
dos opciones: 
A - Volúmenes: haya volúmenes de 
las siguientes figuras: Cubo, Prisma, 
Esfera, Cono y Cilindro. 
B - Areas: haya áreas de las si- 
guientes figuras: Polígonos de 5-12 
lados, sector circular, triángulo, 
rombo, elipse, trapecio, rectángulo. 
Este programa es bastante útil, ya 
que te libra de aprenderse de me- 
moria tantas fórmulas engorrosas y 
hacer tantos cálculos pesados, ya 
que escogiendo la opción deseada 
te pregunta los datos y te hace el 
cálculo rápidamente. 
Utiliízalo bien y te ayudará mucho 
en tus deberes de matemáticas 
(cuando estudies geometría). 
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MASTERMIND 
ste juego está basado en el ya 


E conocido Mastermind y al 
igual que éste tienes que adivinar la 
serie de cinco colores que el orde- 
nador haya pensado, para ésto dis- 
pones de 6 intentos al cabo de los 
cuales si no los has adivinado ha- 
brás perdido, te va indicando los 
colores que tienes acertados para 
hacerte la tarea más fácil, si no lo 
consigues el ordenador te mostrará 
la clave que tenía pensada, este jue- 
go está basado en los colores, ya 
que si fuera por números como en 
algunas versiones perdería vistosi- 
dad, por lo tanto los usuarios que 
tengan conectada la computadora a 
un televisor en blanco y negro ve- 
rán aumentada la dificultad para 
distinguir los colores, ya que sólo 
verán distintas tonalidades de gris. 
Los colores que el ordenador piensa 
los mete en una matriz y luego, al 
meter colores, va comprobando uno 
por uno si coinciden con los que 
tiene en la matriz. 
Espero que te divierta igual que el 
que tienes donde todo se basa en 
un tablero de madera y clavijas de 
clores. 

¡¡Suerte!! 


CONTROL 


E n este programa te darás 
cuenta de cómo estás en con- 
trol mental ya que trata de esto 
mismo. 
En este programa pones en marcha 
un cronómetro pulsando cualquier 
tecla, y después empiezas a contar 
mentalmente hasta que creas que 
ya ha transcurrido un minuto ente- 
ro, rápidamente pulsa la tecla m y el 
cronómetro del ordenador se parará 
dándote a continuación el tiempo 
que ha transcurrido y lo que falta 
para el minuto (o lo que sobra si te 
has pasado), así podrás mejorar mu- 
cho tu sentido del tiempo y tu con- 
centración, pero ¡liino se te ocurra 
hacer trampas con un reloj!!! 
Este programa se ha efectuado utili- 
zando el reloj interno del ordenador. 
Te divertirá ya que es un reto a ti y 
a tu mente. 
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TRON 
e n este juego tú eres Tron y es- 
tás compitiendo por tu vida en 
el famoso juego de las motos y las 
estelas. 
En este juego tú vas soltando una 
estela, pero tu enemigo no, ten cul- 
dado ya que si te chocas contra las 
bombas que va soltando tu enemi- 
go morirás. Piénsate bien el trayec- 
to que mejor encuentres ya que si 
chocas con tu estela irás perdiendo 
energía cada vez hasta morir cuan- 
do te quedes sin ella. 
Tu enemigo te perseguirá sin des- 
canso por toda la pantalla hasta que 
ya no puedas avanzar más, pero ten 
ánimo y logra vencerle, para ello las 
teclas son: 
O-Arriba; A-Abajo; O-lzquierda; P- 
Derecha. 
Mientras más tiempo logres estar 
jugando contra tu enemigo más 
puntos tendrás y llegará un momen- 
to en el cual las bombas de tu ene- 
migo y tu propia estela te hagan 
muy difícil tu tarea. 
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EN ESTE JUEGO TIENES 
QUE ATERRIZAR EL HELICOPTERO. 
PARA HACERLO DESTRUYE LOS EDI- 


FICIOS. TECLAS: 
7: MAPA tod: 





1 IF INMEEYS<>"" THEM GO TO 9999 

2 CLS : PRIMT AT 10,103”PARA LA CINTA": PAUSE 200 
ET Ai=0: | NS PES A . 

> LET 342=0 : 

3 LET p=0: LET ca=0 A AA A A A AS A 

o 


LET af=0 
TTTO LET x=0: LET y=2+af 
13 PAPER Si: CLS : BOPDER 5: CLS 

14 PLOT 0,7: DRAW 255,0 
100 PPINT IMK 43AT 20,55 "Pe Pe Pe Pe Pe Pe Pa 
110 PRINT IMK 43AT 19,75 "Po Pa Po Pe Pe Pe Pe 
320 PRINT IMK 4;34AT 18,9;5"P Pe Pi Pe PL Pa 
130 PRIMT IMK 45A8T 17,95"% fi A ii MI 
140 PRINT INK 43AT 16,9;3"R Pe” 

145 PRINT INF 43AT 15,93"Rh 
ASS PRIMT. INK 43AT_ 14,953"R- 
155 PRINT INK 4587 13,95" 
152 PRINT IMK 43AT 12,9;*"R- 
COD PRIAT AT. ">... 


o 


A an 


: > P P dd 
a 
= 


P10 LET x=x+1 
2220 1F-:=3 1 -THEM-LET-x=0: LET-y=y+ 
5230 TE: CODE SCREENS-1%, 343)=35 THEM 60 TO -=s000- AAA 
240 IF ,;=20 AMD x=30 THEN CLS : PRINMT AT 10,105”!!! BOMO !!'!*: LET p=p+100: BEE 
P.0.5,30: BEEP 1,40: LET af=af+2: GO TO 10 : | 
309 PRIMNT IMK 13AT 3,x3*?222": BEEP 0.02,12: PRINT IMK 13AT y,x3"222" 
305 IF di=1 THEM LET 42=0: 60 SUB 3000 
310 IF IMKEYS="z" THEM LET 4i=1: LET d2=1: 60 TO 3000 
> 0 PRIMT: EME 3347 0,57 “PUNTOS.” 3p 
1060 GO TO 200 A 
3009 1F 12=1 THEM CET 7=77 UET Z2Z=E  — —”—”>——— 
SOTO PRIHNT AT yv, 2239 * 
23020 LET =:y+1 
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3025 IF CODE SCREENS (v,zx)=35 THEN PRINT AT v,zx3" ": LET di=0: LET p=p+5: BEEP 
NL E E O ARA a 
3030 PRINT INK 23AT. ES NE EESS ESDnXnX— 

3040 IF v=20 THEN. PRINT O Aaa kS LET 3i20 

3050.00 TO 370 ES | ue 

5000 FOR a=1 TO 255: UNES: BORDER 5 

5005 CELS 

5010 IMPUT "OTRA PARTIDA (S/M):"5 LIME añ 

35020 IF _at="s" THEN GO TO é6 
5300 STOP | 

97998 POKE 23693,56: BORDER 7?: CLEAR : LOAD X"M"515"tris"SCREENS$ 

9999 SAVE "TRITON*"CODE 16384,PEEK 23627+256*PEEK 23628-164382: 60 TO 1 








IDEAS SOFTWARE 


S iempre que oímos algo acerca de la inversión de la pantalla en nuestro ordenador pensamos enseguida en 
las rutinas de código máquina, pero éste no es el caso. 


En esta ocasión proponemos el uso de una sencilla rutina escrita en BASIC que invierte de forma rápida ven- 
tanas definibles de la pantalla. El método que emplea esta subrutina para conseguir tales resultados se basa en el 
uso de las instrucciones PRINT, INVERSE 1, y OVER 1. 

Los parámetros que emplea esta subrutina son los siguientes: 

X. Coordenada x de la esquina superior izquierda de la ventana. 

Y. Coordenada y de la esquina superior izquierda de la ventana. 

A. Anchura de la ventana en caracteres (máx. 32). 

H. Altura en caracteres de la ventana (máx. 21). 

Ejemplos: Para invertir toda la pantalla X=0, Y=0,A=32,H=21. 

Para invertir toda la pantalla, en C/M, necesitaríamos una sencilla rutina que haría un XOR de cada byte de la 
pantalla con 255. 


10 PREM A RS 
20 PEMOX 5.1.3, E INVERSION X 
30. REM cinta —_— 
50 LIST 
ESENDTT  S otaiars mA N 
—>P0—IMPUT—"ANCHURA115 Ay "ALTURA: 35H — | == 
eo Ga SUE 109 
Go. Ta | o | 
110 FOR Z=X TO X+H-1 Ra 0 
120 PRINT AT Z,Yj OVER 13 INVERSE 1jA$( TO A) 
130 NEXT 2: RETURN 
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1. 1F INFEY<<>"*"" THEM GO TO 9999 

== ES. PRIME AT. 105, 103 PARA LA CINTA”: PAUSE 200 
10 POKFE 23658, 3. ai a A A | 
100 RANDOMIZE USR 23464: FOR A= O TO 21x8: POKE £5089+A, PEEK (23296+A): NEXT A 

420 BORDER OS PAPER OS US TREO --—_—__—_—_— 
169 PRIMT AT 15,0;"PULSA UNA TECLA PARA COMENZAR ": PAUSE O 

170 LET P=0 PA A 
¿OO LEE X=150LEE-Y=1£5 
Z205 LEFT F=7?7 LEFT 6-1 
210 LET Ai=0: LET A2=0 
215 LET R=15S 
216 LET E=9 

22O LET Aft=taberert" E A TA en dl 
230 LET B*=*abc” 

(233 LET Wi=0: LET 12=0 
230. EOR.A=3.40.22 PRENT..ENK.-6561:43:05 222222202 A e A A ÉS 
o B= e TO. E ES Sir A MEXT. 

poo o e CE > j a de 

252 PRINT PAPER si IM asar 20 193 "Paqagaggaaaqnaaqadagadagadaaaa?*s PAPER 53 1 
MK 43AT 19,031”9”5 PAPER 33 INK 43AT 19,315” 

ROS RAIN CINE CIAT Ti 2 a O as ZAS A 7 ICA dl ES Y ETS ON TT A E 
THT TIME 334 T-0., 035 PA A AA LA LAA A IA RE AT 05 LI LA 
cunuuunuuucuuuuuuuua”; INK 354T 21,05 "uuuuuuuuuuuuuuouu uu uuu uuu au auuuuua”: FOR T=0 
FO 217: PRIMT INK 3307 P,070u"5 IMK:3AF-T,313"0”: MEXT 7 | 

2394 PRINT PAPER 5; IMNK 254T 13,31*1lm”3 PAPER 53 INK 2j3AT 14,353*n0"” 

255 PRINT PAPER 53 INK 23AT 194,103” 1m"3 PAPER Sj5 INK 234T 15,10;"no” 

256 PRINT PAPER 5; It 

535 1 






































3 IMK 23AT 15,203"lm"3 PAPER 53 INK 23AT 16,20;"*"no" 
257 PRINT_ PAPER 5; INK 25AT_16,25;"1m"5 PAPER 53 INK_2348T_17,25j"n0" 
258 PRINT PAPER 5; INK 25AT 17,28;"1m”5 PAPER 5; INK 23AT 18,28;*"n0” 

















262 LE Fi=F2 LET G1=S — DE ms 20 SE 
263 PRINT INK 5AT 2,33 "PUNTOS....” 
263 LET G=6+1 
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2270 1F G=28 THEN LET G=1 
Sd PRANT. IMA AAA FL TOO RT O O 

270 PRINT. IMK. 85. OVER.15AT.F,Gj"efgh” 

2293 1F Wi=1 THEN LET 2=0: 60 TO 2500 | 

294 IF G=Y+2 THEN LET Hi=1: LET W2=1: GO TO 2500 

295 LET SO=CODE SCREENS (XxX, Y) | 

300 LET A=X: LET B=Y pate 

305 PPRINT AT 2,173P A E ME 
310 LET X=X+C(INKEY*$="A" AMD X<20)-(IMKEY+="Q" AMD Xx>8) 


A A 








320 LET Y=Y+(INKEYS="P" AND Y<28)-(IMKEY*$="0" AMD Y>1) 
322 IF INKEY*$="P" THEM LET SO=CODE SCREEMS (X,Y+2): LET B*=A08(1 TO 3) 
A LET SQ=CODE SCREENS (X,Y): LET BS=A$(9 TO 64) 
324 1F Ni-1 THEN LET A2=0: GO TO 1500 
325 IF IMKEYS$="M" THEN LET Miri: LET A2=1: GO TO 15009 
327 1F 50-108 OR SQ=199 OR SO=110 OR SO=111 OR X=20 THEN G0 UB 5200 
2320 PRINT IME SAT AB "?9?2* PST O 
A a a A 
1400 LET El=E: LET Ri=R 
410 LET PR=R-1 e 
420 IF R=1 THEM LET R=28: GO SUB 2000 
4235 LET ST=CODE SCREENS. (E,R) 
426 IF ST=97? OR ST=99 OR ST=114 OR ST=**< ¿HEN GO SUR 3000 
430 PRINT INMEK Sj¡AT E1,R13"?2??" 
7435 PRINT INK 8; OVER 1; AT E, Rs "ijko 
1000-60 TO 280 o : A O 1 
1500 IF A2=1 THEM LET V=X: LET YCc=Y 
1510 PRINT INK 5SjAT Y, VC;3 ">?" 
1520 LET "=4Y-1 
1525 LET SR=CODE SCREENS (U-1,UC) 
1526 IF SR=101 OR SR=102 OR SR=103 OR sr=104 THEN PRINT AT EF, +65 "uuua”: PAUSE 50: 


KE A A CIA A A A A A AE AA AAA AA A 








1527 IF SR=114 OR SR= 115 OR SR=116 THEN PRINT AT E, R5 "uuu"; ; CINK 63AT E, ¿Rita2a7": 
LEY P=P+5: LET E=-28 "== "7 TT TT 
1528 IF SP=110 OR SR=111 THEN LET Y=4Y-3 

1535 PRINT INK 38; OVER 13A8T V,UVC3 "4" 

1537 IF U¿9 THEN PRINT INMK 5; AT YI UCIA2 O LETALES 

1540 60 TO 330 | 

2000 LET E=9+(1XINT (4XRND)): RETURN 

2500-IF M2=1 THEN LET ER=F+1 LETET=G— z a 
2505 PRINT INK 5;¡AT ER,ET¿"?" 

250% LET ER=ER+1 

2510 LET SE=CODE SCREENS (ER,ET) A 
2511 IF SE=97 OR SE=98 OR SE=99 OR SE=114 OR SE= 115 OR SE=116 THEN 60 SUB 5000. 
2512 IF SE=108 OR SE=109 THEN LET ER=ER+2 O 
2513 IF_ER=18 THEM-G0 70 300 

2515 PPIMT PAPER 53 INMK 23AT ER,ET3"p" 

2520 IF CER=19 THEN PRINT INK S5AT ER,ETi¡*?"7 LET ER=87 LET W1=07 LET YW2=07 GU TU 
— CO 2 ns AAA AA a A . A A E 

2550 60 TO 300 O A | PI 
5000 PRIMT AT X, Y5 "auuuu!? BEEPIOS0S, 105" BEEP. OAo7eOn PAUSE MOS CESC= ERIN 
5,23"TE HAM SS INPUT OTRA PARTIDA "jAs: IF A$="5" THEN, 





























50 Ta 150: STOP. TE ES | RS 
2003 FOKE 23693,56: BORDEP 7: CLEAR : LOAD " "SCREENS pst 
2090 SAVE "U-S?"CODE 1643894,PEEK 23627+256*XPEEK 23628-16382: GO0 TO 1 
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ma TT 


HARIO (APORTA CRUZ. 1956 


+ 


COGE LAS CEREZAS SIN 
CHOCAR ECONTRA LAS HINAS 
OCULTAS Y LUEGO SAL DE 
CA HUERTA TECLAS 


Q. AR 


RIBA 
O. DERECHI 





1 1F INKEYECO0" THEM GO TO 9999 | 
Pa E e ESA AT 10, PS la cinta ": PAUSE 200: CLS 
RO: LET == A A O O aa 
95 "LET p= so aa . 
ESPOSA RER OS GUS DURDER OS ¿NE LS AE A AA 
07 LET ca=0 
100 LET c=28 
110.DiM.atftc):. DIM. bc) 
200 PRINT INK 2;30T 4,53"??? PPP PRI AA 
210 PRINT INK 23AT 21,53"?2?22222222?2222?2? 22. 
220 FOR a=4 TO 21: PRINT INK 2;AT a,53"?"3 INK 23AT a, 263 ">" 
230 NEXT a 
RO FOUR a=i TO - PE AA ia E e NE A > o 
300 LET ata)=INT (6+15%RND) 
305 LET E(a)=INT (4+15XRND) 
As PO 4 ES A IRA EN LE A 
A 
405 PAUSE a O 
410 FOR a=i. nes E E O | 
120 PRTNT INF 05 AT a ar Ela 
E is _ __a—_ __ 
se: a E E 11 E A ON A AA A 
490 LET u=INT (6+15XRND): LET i=INT (6+15%RND) 
445 PRINT IMEK 45AT A pa 
450 METE c e na E z 
500 PRINT. INK FAT y rar A ini 
510 LET => CINKEYS="q* AMD 95) + (INKEY$="a" AND x<20) 
520 LET /=/+(INKEY$="p" AND 3<25)-(INKEYS$="0" AND y>6) 








523 IF CODE SCREENS (x,y)=0 THEM BEEP 0.5,30: LET p= p+50: LET ca=ca+1 
525 TF CODE SEREENS— 722 THEN 60 TO 3000 ————————_—_—_—_—_—— 

526 IF ca4 AND x=S AND (y=8 OR y=9) THEN GO TO 4000 | 

527 IF /=0 THEN 60 TO 5000 A a 
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530 PRINT INK 63A8T x,y3”2" 
600 PRINT IMK 73AT 0,55"PUNTOS..."5p: PRINT INK 75AT 25 Sy "YIDAS...*5v 
700 BEEP 0.05,20 
1000 GO TO 500 
3000 LET v=v-1: BEEP 0.5,1: GO TO 526 
4000 CLS : BORDER O: LET. EEzOs LET ca=0: LET p= -p+1000: LET x=21: LET y=22: PRI 
—MT-AT-10, 105 "BONO! 111-1000 -—*5 -—FOR-—a=1-TO-255:—0UT-—254953:—MEXT—2:—BORDER-0:etesS : 
GO TO 110 | | 
5000 CLS : BEEP 1,1: INPUT "QUIERES OTRA PARTIDA (s,n)"jat: IF a+="s” THEN 60 TO 
20: STOP | EE Ss E ES 
7998 POKE 23693,56: BORDER 7: CLEAR : LOAD ""SCREEN+$ - | 
9999 SAVE "mina"CODE 16384,PEEK 23627>+256*PEEK 23628-16382: GO TO 1 


3PplLe= 


HARIO APORTA CRUZ 11986 


y 


EN ESTE JUEGO TIENES 
QUE RECOGER MANZANAS SI 
PIERDES 10 MANZANAS DEJAS 
DE JUGAR, 


TECLAS... 
D. IZQUIERDA P. DERECHA 





1 IF INKEY€<>"" THEM 60 TO 9999 | 
2 CLS 3: PRINT AT 10,103*"PARA CINTA ": PAUSE 200 | | 
_ 10 RAMDOMIZE USR 23464: FOR A=0 TO 21x8: POKE -$5089+A, PEEK A 
100 POKE 23658,8 E A 
150 PRIMT AT 15,0;3"PULSA UMA TECLA PARA EMPEZAR": PAUSE O 








160 BORDER 5: PAPER 5 CES? INK 4 y IEA > ES 
200 —PRINT AT 0,01” az >= ===. » A es o. 
a | A A a O, SS. 
COBRA. ama a Ra PA A A ON 
aa | SS a 1 E ES e o ao o 
Pt ( aaa A A A ria 
300 PRINT_ AT _ 12,03" aaaa a A AAA == AAA 
a3335aa adaasgda aadaadaaa 
Po ——ABARAS EE 2 A BARA. A 
adaazaa ' A RI 


310 PRINT IMK 3;AT 21, Oj "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb". 
400 LET co=0: LET p=0: LET x=19: LET y=15: LET F=5: LET 6=20 
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410 PRIMT INE 20:1AT 0,5;”"PERDIDAS...”j INK O5AT 1,5;"COGIDAS....” 
350 LET Xí=X1: LET Yiz=Y 
— ADE di AH EPS ATF Gr F89-— Pa = —_— —— a MMMM»«MMM¿<S<KÑ 
460 LET Y=Y+(INKEYS="P"_AND Y<31)-(INKEY*$="0" AND Y>6) 
500 e AT Y1,Y13* SAT XL-L,¿YIF" ” 
SO SPRINT INE LAT IE AT Ss 
¿GOSPRINT- AT-F.63* 
410 LET F=F+1 
220 1F F=10 THEM BEEP 0.05,10: LET F=5: LET G=?*+(INT (22XRND)): LET P=P+1 
624 IF P=109 THEM 60 TO 5000 
255 IF CODE SOREENE (F.G)=100 THEM LET CO=C0+1: LET F=S: LET G="*(I1NT (22*XRND)) 
PEEP-0,05,929- ! —__— gg 4 4<ÁA4+4 + —___ KK 
630 PRIHT INK 2357 F,61"9* 
1000 60 TO 450 
5000 CLS : PRINT AT 15,0;3"H0S PERDIDO MUCHAS MANZAMAS": PAUSE 50: INPUT "OTRA PA 
PTIDA "¡Aase: IF AS="S* THEN GO TO 50: STOP ON 
9998 POKE 23693,56: BORDER 7: CLEAR : LOAD ""SCREENS 
9000 SAVE "APPLES"CODE 16384,PEEK 23627+256XPEEK 23628-16382: 60 TO 1 








oa 


HARIO APORTA ERUZ 1119356 


z 


CONTROLA MENTALMEN 
TE EL TIEMPO Y PULSA LA 
M CUANDO CREAS QUE HA PA- 
SADO EL MINUTO, LUEGO Ml- 
RA EL RESULTADO. 





1 1F INKEYS$<>"" THEN GO TO 9999 | 
2 CLS : PRINT AT 10,10;"PARA LA CINTA": PAUSE 200 

30 POKE 23658,8 

70 BORDER S: PAPER 5: CLS 5 INK 1- 

95 PRINT AT 15,4;"PULSA UNA TECLA PARA QUE ";AT 17,4;"EMPIECE A CONTAR EL RELO 
5 A ESAS" AA 

97 PAUSE 100 

98 CLS 

100 POKE 23672,0: POKE 23673,0: POKE 23674,0 

110 PRINT INK 254AT O, A TNK 2j5AT 21, 03"22>?222 


re A A A A A A 


PI TIPIIPAIPIIPAIARTIRI II FOR a=0 TO 21: PRINT 3 INK 23 AT aj0j"7?"5 INK 234T 


A e IN ES | 


6,313"2"1 MEXT a: PRINT INK 1;5AT 2,53 "CONTROLA El TIEMPO”: PRINT INK- 93AT. 13,12; 


E ——_———— AAA __Á__ _ _ _ —_— —02————n 
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Aa IN SAGAS 17,127 * 22222222" FOR S=13 TO L>* PRINT INK 45347 s5,123">9"; 
INK 43AT 5,203"?”3 NEXT s: PRINT INK 15AT 4,23"PULSA M CUANDO CREAS"3 INF 1;48T € 
123 "QUE RA PASADO UN MINUTO "5 INK 1;A6T 8,2; "LUEGO MIRA El RESULTADO" 

150 PPINT AT 20, Zj"PULSA UNA TECLA": PAUSE O: PRINT AT 20,20;"R": BEEP 5 US, 107 
REE? DO... 20 A A A RAE 
200 DEF FN tira (6553é6XPEE! 23674 +256XPEEK 23673+PEEK 23672) /50 





— _— q _— A. a - 





300 IF IMKEYS="M" THEM PRINT AT 15,153FN t1): GO TO 1000 
400-600 TO 200 
(000 PEEP 9.5,107 PEEP 0.5,20: PAUSE 90: CLS : PRINT AT 10,10; "TIEMPO "¡FM TOA 
TO15, 103 "FALLO "53 (FM T()-60): INPUT "QUIERES INTENTARLO OTRA VEZ "0%: 1F As="S" 
THEN GQ 70 50: STOP 
9998 POKE 23693,56: BORDER 7?: CLEAR : LOAD ""SCREENS 
2992 SAVE "COMTROL"CGDE 16384,PEEK 23627+256*PEEK 23628-14382: 60 TO 14 


11986 


+ 


CONTROLA TU ROBOT sI 
CHOCA CONTRA EL ENEMIGO 
O SU ESTELA PERDERA ENER- 
GIA Y SI DAS CONTRA UNA 
DE LAS BOMBAS MORIRAS. 





0 IF INKEYS<>"" THEN GO TO 9999 
2 CLS : PRINT AT 10,10;"PARA LA CINTA": PAUSE 200 A ; 
10 RANDOMIZE USR 23464: FOR A=0 TO 21%8: POKE 65089+A,PEEK (23296+AM): NEXT A 
140 BORDER 5: PAPER 5: CLS : INK 1 
150 POFKE 23658,8 E e 
290 -EF—==20:— ET 221 ERARIO ——— 
202 LET P=0 
210 LET E=-50: PRINT AT 0,3;"PUNTOS..."”"jAT 1,3j"ENERGIA..." 
300 LET X1=X: LET Yi=Y | o A 
310 LET X=X*+(INKEYS="A" AND X<21)-(INKEY$="Q" AND X>4) 
320 LET Y=Y+*(INKEYS$="P" AND Y<31)-(INKEY$="0" AND Y>0) 
325 PLOT 0,150: DRAW 255,0 
330 PRINT INK 63A8T Xx1,Y13*"c 
334 LET P=P+12 PRINT AT O, I35P5AT 1,151E  —— 
335 IF CODE SCREENS (X,Y)=99 THEN BEEP 0.05,10: LET E=E-1 
336 IF CODE SCREENS (X,Y)=98 THEN BEEP 0.05,10: LET E=E-1 
337 IF CODE SCREENS (X,Y)=100 THEN BEEP 0.5,10: BEEP 0.5,20: GO TO 5000 





— O e oe == 
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333 1F E=0 THEN 60 TO 5000 

740 PRIMT INE 23AT-X,Y3"a"” 

400 LET .A1=A: LET Bi1i=B 

410 LET A=A-((X<A AMD SD ZOO AND A<21)/2) 

420 LET B=B-((“<B AND B>0)/2)+1(X>B AND B<31)/2) 

7425 LET SE=INT (4%*RND): 1F SE=2 SE=2 THEN | PRINT IN 3jAT As Briprdr 
AO PRINT AT OAT;Bty" "  — > SS o | == 

430 PRIMT INK 4347 A,B;”"b" 

1000 66 TG 300 | E = : 
=500 CL3 : PRINT AT 15,05" HAS MUERTO ”: PAUSE 100: INPUT "OTRA PARTIDA "5A$: IF 
A$="S" THEN CLS : 60 TO 100: STOP 0 
9998 POKE 23693,56: BORDER 7: CLEAR : LOAD ""SCREENS$ 
9999 SAVE "TRON"CODE 16384,PEEK 23627+256X*PEEK 23628-16382: GO TO 1 














= HI 


E HARTO APORTA ERUZ 1313956 


e 





TIENES QUE RECOGER 
BICICLETAS DE UN JARDIN 
PERO CUIDADO PORQUE ESTE 
ESTA MUY PROTEGIDO PARA 
QUE NO TE LAS PUEDAS 
LLEVAR. 

TECLAS. 

0. ARRIBA A.ABAJO 

D. IZQUIERDA P.DERECHA 

—— TF IMNKCEYE<>S*" THEN GO TO 9999 = a “EE 


2 CLS : PRINT AT 10,10;"para la cinta”: PAUSE 200 
SO. RANDOMIZE USP 23444: FOR a=0 TO 2148: POKE $5089+a3, PEEK (23296+8): NEXT. 
90 BORDER 5: PAPER 5: cs ES 4 a | Hee EA 
z 905 POKE 23658,8 EE 20 

100 LET “=4: LET Y=4: LET O ter E=S0 

200 PRINT-AT-3,153"aamnaasaanaaaaaaa2addaaa 29 ml AAA 
E AA ! aa asa aa aa a 32 a38a 3ia3aaa 





a AAA AA A E AAA AAA A << 





aa 223 aAaaaaazaa Aa a 2 an a a a. a a aaa 
A Ma o a e 
=1o. PRINT AT 11,15% a ai A a E E e 
e dd a A A 
oo aa a asasaacanaaaaacaassaa asaasa aaaaaaamaaBamamBaassa  aasa 
aa 21212) asaasa —anyasadasaasasaammamaacadadaa“aca” 

30 FRINT INE TEJA OS 271" INR GTAT 15,271 "4" INK SAT 1015738" TT 
285-—PPINT—INH—05487-0, 23 PUNTOS: 5H KO AT -2352 TL EMPO. 
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290 LET P=0: LET T=200 
300 LET A=17: LET B=20 
A NA 
JO2LETIAD=67 ER o 
303 LET A3=6: LET B3=2 
304 LET D1I=0 AS 
400 LET -“1=X: LET Yi=Y 
410 LET-X=X+CINKEYS="A")-(INKEYS$="QG") A 
_420 LET Y=Y+(INKEYS="P")-(INKEY=<="0") 











422 IF CODE SCREENS (X,Y)=99 THEN GO TO 5000 
425 IF Di=0 THEH PRINT AT 10,934" 
426 PRINT- AT 0,123P50T 1,125T : 
427 1F CODE SCREENS (X.Y) =97 THEN GO TO 5000 
-428 IF CODE SCREENS (X,Y)=102 THEM LET Di=1: BEEP 0.05,10 
429 IF CODE SCREEN$ (X,Y)=100 THEN GO TO 5000 
430 PRINT ATI" " — AA — AS 
a a A E A A A A II AA 
450 LET T=T-1 
355 IF T=O0 THEN GO TO 5000. ea A 
460 IF <=18 AND Y=10 AND Di=1 THEN LET Dí=0: LET P=P+10: BEEP 0.05,20 
500 PRINT AT A,B;3" * 
510 LET B=B+1 
520 IF B=26 THEN LET B=20 
530 PRINT INK 15AT A,B;"c 
pi 0 DA TT O E _ 
560 LET B1=B1+1 
5óS 1F Bií=26 THEN LET Bl=8 
50 PRINT INK 3;AT Al1,B1;"c 
600 PFINT AT A2,B23" ” 
610 LET B2=B2+1 
PL E E E TEA o 0 A A RE a 2 
¿ZO PPRINT INK 15;AT A2,B2;"c" 
450 PRINT AT ETE 2 MRS A 
653 PRINT AT A3,B3+103” " 
655 LET A3=A3+1 
660 IF A3-14 THEM LET A3=6. 
¿éS3 PRINT INK 3;AT A3,B3;" 
A RE A A > 
1000 650 TQ a4ne e E 
5000 CLS : PRINT AT 15, 10;”NO LO HAS CONSEGUIDO": PAUSE 100: BEEP O. 5,12: BEEP O 
.5,22: IMPUT "OTRA PARTIDA";A$: IF A$="S" THEN CLS : GO TO 100: STOP 
9998 POKE 23693,56: BORDER ?: CLEAR : LOAD ""SCREENS | s 
92009 SAVE "cicliemo”"CODE 16384,PEEK 2362”+256%*PEEK 23628-16382: GO TO 1 

















SI PREFIERE SUSCRIBIRSE 


POR y TELÉFONO... 





E 


E 


HARIO APORTA CRUZ cd 9856 


ee! 


EN ESTE JUEGO TIENES 
QUE ELEGIR MANZANAS DE 
UNA CAJA ,SI ESTAR MALDbU- 
RAS SUMARAS PUNTOS PERO 
SI ESTR VERDE PERDERAS. 





YT IF INKEYEX>"" THEN GO TO 9999 — - A Mir 
—2 £LS : PRINT-AT-10,103*"PARA-LA-CINTA—":-—PAUSE 200 AS = 
120 LET pu=0: BOPDER 5: PAPER 5: CLS : INK 1 

195 PRINT AT 15,15;"PULSA UNA TECLA": PAUSE O: CLS 

200 DIM at10,7> 

STO FOP. a=1-.10-10 

220 FOR s=1 TO 7” 

240 LET u=IMT (S%RMD) 
250 LET afa,s)=0 á 
20 F-uet-THEM-CET-ats,uret — e A Ez 
275 MEXT 5 

220 MEXT a 

2300 FOR d=1 TO 10 

212 FOR t=1 TO 7? 

320 PRINT AT 7+t,10+4;">?" 
ESOS MEYT ds MEXTAA ES TN a = 

335 PRINT AT 5,11;"12345678910" Es 
2340 FOR t=1 TO 7: PRINT AT ?+t,8;3t: NEXT t 
350 PLOT 0,35: DRAW 255,0: PLOT 0,155: DRAW 255,0 

400 IMPUT "ELIGE FILA "jo 

410 IMPUT "ELIGE COLUMNA ";3p 

420 IF afpy,o)=1 THEN GO TO 5000 : 
270 1F alp,o0)=0 THEN PRINT INK 2;¡A4T ?+0,10+p3"?":; BEEP 0.05,10: LET pu=pu+10 
440—PRINT-IMEO FAT SA PUMTOS. PU — — _— Pa A 
560 GO TO _ 400 a E E pa PE. ZA E: 
5000 PRINT INK 45AT 8+0,10+p3"?": PRINT AT 20,2;"ERA MALA HAS PERDIDO": BEEP 1,1 
O: BEEP 1,20: PAUSE 50: IMPUT "QUIERES OTRA FARTIDA"3A$: IF A$="=" THEM GO TO 10 
0: STOP 
9993 POKE 23693,56: BORDEP 7: CLEAR : LOAD ""SCREEN$ 
99929 SAVE "MIM"CODE 14384,PEEK 23627+256%PEEK 23628-16382: 60 TO 1 
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A 


HARIO APORTA CRUZ 


PLus 
EE 


ESTE ES SOLO UN EJEMPLO 
DE LAS MULTIPLES POSIBILI- 
DADES DE ESTE PROGRAMA CON 
EL PODRAS REPRESENTAR TODO 
TIPO DE DIAGRAMAS. 


THEN 50 TO 9999 
10,103 "PARA LA CINTA ": 
390 PRINT IMK 238T 1,75"”G-R-A-F-I-C-=A-=S | 
60 PRINT INMK 15AT 7,3;3"A. DIAGRAMA DE BARRAS”; AT 13,3;"B. DIAGRAMA 
IMOS"3AT-20,05"PULSA CUALQUIER TECLA-PARA ————— VOLVER-AL- MENU" 


1 IF INKEYS"9"» 


2 CLS : PRINT AT PAUSE 200 





EA A A A a 


o 


Sr 





65 PLOT 0,37: DPAW 255,0 SST a A 
0 INPUT "QUE OPCION? "3As 
S0 IF As$="B" THEN 50 TO 609 
90 IF A$="A” THEN G0 TO 190. 
100 REM diagrma de barras de alta resolucion 
EPO:-CELS 
120 BORDER 3 
— 30D 0-42 2D ERA 
140 FOR n=1 19 7 j 
150 INPUT "DATO..”:A 
MOE ETA 
o MET 
185 REM. dibuja ejes e escalas 
187 IMPUT "MOMBRE GRAFICA "; AS: 
10 IMK O 
200 LET :0=387 LET YoO=20 
—ANPL070 0 —— _— == ——_—_- 
220 DRAW 168,0 
230 PLOT 0,0 
240 FOR n=1 TO 6 
250 DRAW 0,20 
260 DRAW -3,0 
270 DRAW 3,0 A 
250 MEXT n 
290 PRINT AT 20,735 
300 FOR j=1 TO ? | 
310 PRINT ds(j)3" "; 











PRINT AT 1,16-LEN A$/230$ 














Y 
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320 
320 
340 
360 
365 
370 
380 
320 
400 
310 
420 
470 
499 
asc 
450 
a70 
480 
q4%0 
500 
510 
520 
5490 
400 
610 
620 
630 
£40 
650 
660 
665 
670 
£80 
685 
730 
740 


MEXT J 
IMPUT "VALOR ESCALA 
PRINT AT 19,250 
INPUT "UNIDADES "3F*%: 
REM dibuja barras 
INK 2 

PLOT 56:08. 
DRA 4,0 

FOR l=1 TQ 2 
DRAWN 8,0 

LET y=t(k)49 
FOR n=1 TO 4 
_DRAW_9,y 
DRAN 1,0 
DRAW 0, ->y 
DRAW 1,0 

MEXT n 

DRAW 8,0 
MEXT k 

REM escribe la leyenda 
TN K-—1————————— 
CLS : 


"5S: 


CLS 
BORDER 3 

DIM 34$(7?,2) 

DIM 1(7) 

Dim h(7) 

REM establece los datos 
LORO 
INPUT "DATOS 
LET L1(S)=J: 
MEXT S 
PREM dibuja los ejes y 
IMF 0 

750 LET_xo0=48: LET yo=20 
760 PLOT x0,yO 

=>P0 DRAW 168,0 
780 PLOT. 5:00 
790 FOR n=1 TO 6 
200 DRA 0,20 
810 DRAW -3,0 
2209 DRAW 3,4 

28730 MEXT 
840 PRIMT 


LET H1S)=6 


Cn E e = 


AT 20,731 


350 FOR j=1 TO , 

360 PRIMT dA$tj33" “5 

S”?0 MEXT> 3 . 

2820 INPUT "VALOR ESCALA "FE: 
290 IMPUT "WALOR ESCALA ”3TS: 
10 


920 
Sa 
240 
2E0 
Den 


a] 
ha 


EM traza las barras 
PLOT _:0+3,:'0 

EOP i=1 TO 

INF 5 

ET y dk) 

FOR n=1 TO.49 

285 DRAN 0, y 


20 


GO TO 50 
REM diagramas de barras mult 


las 


PRINT AT 4,2335 


iples 


escalas 


PRINT AT 11,05Fs 


PRINT AT 19,45Rs$ 
PRINT AT 4,3371; 
INPUT "UMIDADES "0%: PRINT AT 11,1;0$5 


(MINIMOS )”"533: INPUT "DATOS (MAXIMOS)"36 


A — ———Á 


290 DRAW 1,0 
19000 DRAW 0,-y 
1010 DRAW 1,0 
1020 NEXT n 
1030 DRAW 4,0 
1040 INK 2 
1050 LET y=htkI%4- — o nd > e 
1060 FOR n=1 TO 4 
1070 DRAYW O, y 
1080 DRAW 1,0 
1070 DRAW 0, -y 
1100 DRA 1,0 
1110 MEXT n 


ELE20: DRAN 4,0. 32... A +: (AR “3 ] 
ONES E € _  _  _.m e 


1140 REM ¿oprime o 
1150 INK sa A 

1160 INPUT. "TITULO LA. 
1170. .IMK Ss a ; 
1180 PRIMT AT Je 653 "Mm h 















LSO PRINT CHRS 143 /CHAA-143p A a a 
1200 A o AAA A AE el 
1210 PRINT AT 3,17j"Max  "¿CHR$ 143; 


1220 PRINT CHR$ 1433CHR$ 143; 

1230 PAUSE 0: CLS : 60 TO O ss 

9978 POFE 23693, 56: BORDER. >: CLEAR LOAD "SCREENS : cn 
9929 SAVE "GRAF"CODE 16384,PEEK 23627 +256%PEEK 23628-16382: ER 


a 


o 


CON ESTE PROGRAMA 
PUEDES CALCULAR UDLUMENES 
Y AREAS ,SOLO TIENES QUE 
ELEGIR EN EL MENU. 








1 IF INKEY*$<>"" THEN GO TO 9999-————— ¡ 
2 CLS : PRINT AT 10,103"PARA LA CINTA ": PAUSE 200: CLS 
30 POKE 23658,8 | PA AS 
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A e do 


950 BORDER 5: PAPER 5: CLS : INK O 
100 PRINT INK 23087 1,5;"MENU PRINCIPAL====" 
110 PRINT INK 1347 7,25"A. VOLUMENES” 
120 PRINT INK 1jAT 13,2;"B. AREAS” 
130 IMPUT "QUE OPCION QUIERES? "jA* 
140 15 A$="A" THEN GO TO 1000 
150 TF A$="B" THEN GU TO 3000 q == €KÉ<—————————_HA > 
1000 0138 : PRINT INK 25AT _1,103"V-O-L-U-M-E-N-E-S"1 PRINI_: PRINT : PRINT : PRIN 
TY : PRINT IMK 13"A. ESFERA": PRINT : PRINT INK 15*B. CILINDRO": PRINT : PRINT IN 
K 15"0. CONO": PRINT : PRINT INK 13”D. PRISMA": PRINT : PRINT INK 15+"E. CUBO" 
1010 INPUT "QUE OPCION QUIERES? "5BS$ 
1020 CLS : IF Bé="A” THEN GO TO 1250 
1030 15 Bs="B"” THEM GO TO 1250 
1040 1F B$="C" THEN GO TO 2000 
1050 TS B$="pP" THEN 60 TO 2250  — —  — a 
1060.1F P*="E"” THEN GO. TO 2500 


1250 PRINT IMK 23AT 1,105 mes s- == -E- E a” A A 
12555 ERCEE 130,100,L10. > O E ESE E 
1260 BEEP .5,20: INPUT "DE QUE RADIO? “5R E o ps 
1265 PRINT IMK 3547 18,55"EL VOLUMEN DE LA ESFERA DE RADIO "¡R3" ES "5(4XPIXR"3) 
3  ——— — ——- 





A 











1266 INPUT "QUIERES OTRO CALCULO? "¡Y8: 1F_ Ys="8S" THEN co TO 1250 
1270 CL3 : GO TO 100 AE 
1750 CLS : PRINT INK 2+AT 1,75”C-I-L-I-=N-=D-R-0" HN ES | 
1755 PLOT 130,100: DRAW S0,0: DRAW 0,-30: DRAW DAA 0,30: CIRCLE 125,80,1 
5 | | | | ES = 
1760 BEEP .5,20: INPUT "QUE RADIO? *3T 

1770 BEEFP .5,20: IMPUT "QUE ALTURA? "3H 





Kn 








12980 PRINT IMK 3347 18,2;"EL VOLUMEN ES S *“T2RH 
(785 IMPUT "QUIERES OTRO CALCULO? "+W$:—IF-W$="S" —PHEN-G0- da E 7 A o 
17020 215 : 60 TO 100 

2000 CLS : PRINT INK 23AT 1,155”"C-0-N-0": BEEP .5,20: INPUT "QUE RADIO? "5Z: BEE 
P..5,20: IMPUT "QUE ALTURA? *3U | 0 
2005 PLOT 130,100: DRAW 10,-30: DRAW -20, O: DRAW 10,30: CIRCLE 125, 50,10 | 

2010 PRINT INK 33AT 18,23"EL VOLUMEN ES "3(PIFZ2U)/S | 

2070 IMPUT "QUIERES OTRO CALCULO? "¡S$: 1F S$="S" THEN GO TO 2000 

2030 CLS : 60 TO 100 SS 

53506 CL3S 7 PRINT INE 27871 1,105*P-=R-1-S-M-= -A"—BEEP-—5,20:—INPUT-—"QUE- AREA DE LA. 
BASE? "3P: BEEP .5,20: IMPUT "QUE ALTURA? "3N | 

2255 PLOT 130,100: DRAW 20,0: DRAW 0,-40: DRAW -20,0: DRAW 0,40 

2260 PPINT IMK 350871 18,2;"EL VOLUMEN ES "3PXN 

2270 INPUT "QUIERES OTRO CALCULO? “¿Má: IF M$="S" THEN GO TO 2250 

2280 LS : GO TO 100 aa 

250O0-CLS—> PRINT-INK—25AT-1,123"C-U-B-0": BEEP .5,20: INPUT "QUE LADO? "3J: PRIN 
T_AT 13,2;"EL VOLUMEN ES "33%5 AE 

2505 PLOT 130,100: DPAW 20,0: DRAW 0,-20: O E SS 
2510 IMPUT "QUIERES OTRO CALCULO? "31$: IF 1$="S" THEN 60 TO 2500 

2529 CLS-: 60 TO 100 | 

3000 CLS : PRINT INK 23AT 1,103"A-R-E-A-S*: PRINT : PRINT : PRINT INK 15”A. POLI 
GOMOS DE SA 12 LADOS”: PRINT : PRINT INK 13"B. SECTOR CIRCULAR": PRIMT : PRINT 
IMK 1:3"C. TPIANGULO": PRINT : PRINT INE 13"D. ROMBO": PRINT : PRINT TNK=TS*"E. EL 
IPSE": PRINT : PRINT INK 13"F. TRAPECIO”: PRIMT—:—PRINT-INK-15"G. RECTANGULO" 
3010 INPUT "QUE OPCION QUIERES? -:";A% E 
3020 IF A%="A" THEN GO TO 3250 

3030 1F A$="B" THEN 60 TO 3500 

040 IF As="2" THEN 60 TO 3750 

3050 1F Aé="D” THEN 60 TO 4000 

2050 15€ A%="E" THEN 60 TO 4250 
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7270 _1F A$="F" THEN GO TO 4500 

2080 15 A$="G" THEN GO TO 4750 

3250CLS 1 PRINT.-INK-43AT 4, 43"POLIGONOS DE 5.6--12-LADOS": BEEP...5,205. INPUT. QU 
E PERIMETRO? "5P1 BEEP. 5, 207 INPUT "QUE APOTEMA? ASAS e 
3260 PRINT INK 3387 18,23"EL AREA ES "s(PXA)/Z2_ O 
3265 INPUT "QUIERES DTRO CALCULO? As TE Hé="s" THEN co To LO 
3270 CLS : GO TO 100 ER A | 








E EA a E GHRCEULAR———BEEP— 3520: INPUT "QUE RADIO? 
”; BEEP_.5,20: IMPUT "CUANTOS GRADOS? "36 


“3520 PRINT INF 354T 18,2;"EL AREA ES ”5 (PIXR"2%G)/350 
o 









3520 IMPUT "QUIERES OTRO. es THEN 60: To: 3500: A 
2530. ELS. 60.10.1009 a E 5 — A 
o rr PRINT INK 1707 ES 105 "TRIANGULOS": A INPUT "QUE BASE? asii 
a 5207 INPUT QUERETARO A OS 
2535 PLOT 130,100: DRAW 10,-30: DRAW -20, O: "DRAW 10,30 ¡ A o 
E e E ZE] 3 e e 
3270—INPUT—LQUIERES—O0FRO-CALCULOS UB; IE 
35280 CES 1 66 TO 100 


4000 CLS : PRINT INK 13AT. La 13$*ROMBO": BEER. 5, 2 INPUT "QUE DIAGONAL MAYOR? e 
5D: BEEP ,5,20: IMPUT- "QUE DIAGONAL MENOR? "30€ rs | Ts 
go01o. PRINT IMK 35A7 A RESULTADO. ls MG (DAO)/2 : > 
4020 IMPUT "QUIERES OTRO CALCULO? "j0$: 1F "87 THEN. 60 To 4000. 
4030 CLS : GO TO 100 
2250 LS £ PRINT INK:254T L, A BEEP .5,20: INPUT "QUE RADIO MAYOR? "3T 
TOREEP 5,207 IMPUT "QUE RADIO ME! -— = ——___——_—_—_———_—_——_— 
3260 PRINT. INK..15AT,.18,23.EL.. RESULTADO, ES. EPILTEY | | 
4270 INPUT "QUIERES OTRO. CALCULO? qUe: IF ets THEN. 60. a. 4250. 
3280 CLS 5 60 TO 10. o : e a 
4500 CLS ; PRINT ENS ato 107 "1RAPECIO*: BEEP- 5, 20: INPUT BASE 1 "52: BEEP. 
5,20: INPUT "BASE 2 ";X: BEEP .5,20: INPUT "QUE ALTURAS sm Ea DA 
ASIO PRINT-INK_3307-18,23"EL—RESULTAD | 
4520 IMPUT "QUIERES OTRO CALCULO? "3S$: IF S$="S" THEN GO TO 4500 

4530 CLS : 60 TO 100 RS 

4750: 2eS CPRINTINK 4 GATO *RECTANGULO": BEEP coo AQUE- BASE? 3K5 B 
EEP. SS 0: IMPUT- 2” "QUE AL. TURA? -- y 3 y ES co A ho 
4760. PRINT INK IAF 18, 25 "EL RESULTADO ES 
47270. INPUT "QUIERES OTRO CALCULO?”"; e 
4730 CLS : GO TO 100 





























A remitir a LIBRERIA SOFTWARE, Bailén, 20-1.* Izq. 28005-Madrid. 
Deseo suscribirme a los 11 números de LIBRERIA SOFTWARE por sólo 2.500 pts. 






El importe lo haré efectivo: 
DISPOFGIFO DOSTal NP ocn crenccanaoncinaneoanass | 
O Por talón nominativo adjunto. 

O Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 









Deseo suscribirme a partir del DN.” coccion... (INCIUSIVE). 


Nombre Y apellidos: > ESPERADO AAA LADA ISLA EIA AA BREA IAEA IIA AAA AAA REFRA TRAEN] AFI | 
Domicilio: ERA RRRAAA AS BEER EUA FABRA AEREA CAFE PA A Aa da 
A E A A ARA RN E RIÓ TOO a SA 
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Libreria SOFTWARE 
SPECTRUM 


Bailén, 20 - 1? - Izda. 


28005 MADRID 





CENTRO DE 
INFORMATICA 
Las Rozas - Majadahonda 
EMPEZAMOS 
Cursillos en BASIC 
cada 15 días 
Tenemos 


todo lo referente al 
COMMODORE 64 


Teléfono: 637 31 51 


COMPAÑIA ESPAÑOLA DE 
SUMINISTROS ELECTRONICOS 
(C.O.S.E.S.A.) 


ORDENADORES PERSONALES 


—SINCLAIR —SPECTRA 
—COMMODORE VIDEO 
—LASER —SONY 


C/ Barquillo, 25 
Telfs.: 222 69 49-232 36 44-231 29 18-221 55 07 
28004 MADRID 












* Ordenadores personales Hard y Sott. 
e Cursos de Basic. | 





RENOVACION EN MARCHA, S.A. 


OFICINAS 
C/ Espronceda. 34-29 int 
28003 MADRID 


Teletono (91) 441 24 78 | 


REM SHOP 1 
C/ Galileo, 4 - 28015 MADRID | 
Telefono (91) 445 28 08 | 


REM SHOP 2 
C/ Dr Castelo. 14 - 28009 MADRID 
Teletono (91) 274 98 43 


REMSHOP-3 
C/ Modesto Lafuente, 33 
28003 MADRID 
Telefono (91) 233 83 19 


REM SHOP - BARCELONA 
C/ Pelayo, 12 - Entresuelo y 
Telefono (93) 301 47 00 














































REM SHOP - LAS PALMAS 
Gral Mas de Gaminde, 45 
Teletono (928) 23 02 90 
(Inauguración) 25/2/85 





Informática Computer Log 


NUEVA ONDA 


C/ Puerto, 6 | O VENTAMATIC - Avda de Rhode. 253 - ROSES 
HUELVA. Teléf.: 25 81 99 (Girona) - Tel (972) 25 79 20 





MEE SRDEN sn | 


- ORDENADORES PERSONALES - 


e Sinclair Spectrum - Plus - QL 
e Spectravideo 328 y MSX 

e Atari 800 XL y 600 XL 

e Dragon 32 y 64 

e Commodore 64 

e Oric Atmos 

e Amstrad 

e Epson 


— PERIFERICOS Y ACCESORIOS 
— SOFTWARE PARA TODAS LAS 
MARCAS 
— CURSOS DE BASIC 
— GRAN SURTIDO EN LIBROS 
Y REVISTAS 


Francisco Silvela, 19 
Teléfono 401 07 27. 28028 MADRID 





cosa de 
SONOE0! 


c/ aragón, 272, 82, 6. 


Avda. de Arteijo, 19 
14004 La Coruña 
Teléf. 25 51 72 














Especializados tel. 215 69 52 - 08007 barcelona 
en software para o Software profesional para C-64 
C y d 64 e Con distribución productos 
ommodore-9 DIGITAL RESEARCH 
Spectrum | z 
y MSX 


ra 
a. 3 





S VENTAMATIC 
Sp HUELVA Joves a conocernos. Somos los SUPER- | 


ESPECIALISTAS del COMMODORE 64 y lo te- 

| nemos TODO para tu COMMODORE 64 (inclu- 
Commodore S yendo lo último en accesorios y programas 
Spectrum musicales y MIDI) SOLICITA CATALOGO A 


Nix do e COMPLETO 


B O VENTAMATIC.c Corcega. 89. entlo 08029 E 
BARCELONA - Tel 193123097 90 Metro EN- 
TENZA Linea Y Bus 41. 27. 15. 54, 68 


Departamento de Envios y Venta por Correo 


id traders dude A 


""MaTP YT" 


A 


E 
e 





LA SERIE «CURSO VISUAL EN PANTALLA» SOBRE PROGRAMACION 
Hoy dia hay una urgente necesidad de guias prácticas, bien hechas y sencillas, para aprender a usar un 
ordenador. Por eso se han creado las senes sobre programación «Curso Visual en Pantalla». Son un con- 
cepto totalmente nuevo en el campo de la autoenseñanza de micromlormática y constituyen la primera 
biblioteca de manuales de Programación Paso-3-Paso. altamente ilustrados, para máquinas específicas. 


LIBROS SOBRE EL ZX SPECTRUM + 
Este es el Libro Dos ae ¡a excepcional sere de guias Paso-a-Paso- para programar el ZX Spectrum 
Junto con los otros volúmenes, constituye un curso de autoenseñanza que comienza con los principios 
básicos de programación y llega a alcanzar, a Iravés de técnicas y rutinas más complejas, un mel 
avanzado 


SOBRE OTROS ORDENADORES 
Los otros volúmenes de la señe abarcarán los ordenadores más populares en el mundo. Estos incluirán: 


Programación Paso-a-Paso para el ZX Spectrum 
Programación Paso-4-Paso para el Apple lle 


Programación Paso-a-Paso para el Commodore 64 
A A AAA A ————————_ 
lAN GRAHAM 

Después de licenciarse en Fisica Aplicada y obtener un diploma de Periodismo para graduados en la City 
University, Londres, lan Graham ha trabajado como editor auxiliar de Electronics Today International y 
editor suplente de Which Video? Desde 1982, en que llegó a ser un escritor independiente de plena de- 
dicación, ha colaborado en una amplia gama de revistas técnicas incluyendo Computing Today, Video 
Today, Video Search, Hobby Electronics, Electronic Insiaht, Popular HI-F, Science Now, Next y otras. y 
también ha escrito varios libros muy conocidos sobre ordenadores e informática. Entre estos están Com- 
outer £ Video Games, Information Technology. The Inside Story-Computers. 
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| IN MA OURAN Í 


10 VIH 1 
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PESETAS 





e SUMARIO 
e ELECTRO 
e CLIMOGRAMAS 

e FORMULA - 1 

e GARRAFAS 

e DATOS 

e TROLL 

e LASER 

e BASES 

e NUMEROS ROMANOS 
e BITS 

e FILLS 

e CESPED 

e TEST A-1 

e MINE DRIVE 



















DISPONIBLE PARA ZX SPECTRUM 


CASERA 


Ñ 
El 


l 
Ed 





—Graphis, S.A. Publicidad 


